Sub save_pdf()
 Sheets("Sheet1").Select

    Dim filename As String
    Dim ChDir As String
    
    
    
 
    filename = Range("A1")

    ChDir = "C:\Users\alwaha\Desktop\doctors\PDF\"

    Sheets("Sheet1").Range("a1:i26").ExportAsFixedFormat Type:=xlTypePDF, filename:= _
       ChDir & filename & ".pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False

End Sub